Option Explicit
Sub Q_Sample009()
    Dim myWb                  As Workbook
    Dim myAr(1 To 10, 1 To 1) 		As Long
    Dim myArV                 As Variant
    Dim i                     As Long
    For i = 1 To 10
        Randomize
        myAr(i, 1) = Int(Rnd() * 100)
        Debug.Print myAr(i, 1)
    Next
    Set myWb = CreateObject("Excel.Sheet")
    With myWb.Sheets(1).Range("A1")
        .Resize(10).Value = myAr
        .Resize(10).Sort Key1:=.Cells(1)
        myArV = .Resize(10).Value
    End With
    For i = 1 To 10
        Debug.Print myArV(i, 1)
    Next
    myWb.Close False
    Set myWb = Nothing						'
End Sub
